﻿Imports EvoLib.Protocol
Imports EvoLib.Protocol.Functions
Imports EvoLib.Cryptography

Module Module1

    Sub Main()

        On Error Resume Next

        Dim t As DateTime = DateTime.Now


        For i As Integer = 0 To 50

            Console.WriteLine(RandNum(-1, 1))

        Next


        Console.WriteLine((DateTime.Now - t).TotalSeconds & "s for processing")
        Console.ReadKey()
    End Sub

End Module
